home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / pvm34b3.zip / pvm34b3 / pvm3 / libfpvm / WIN32 / Pvmfgsize.c < prev    next >
C/C++ Source or Header  |  1997-07-22  |  774b  |  44 lines
  1.  
  2. /* $Id: Pvmfgsize.c,v 1.1 1997/06/27 16:27:00 pvmsrc Exp $ */
  3.  
  4. #ifdef WIN32
  5. #include "..\..\include\pvm3.h"
  6. #include "..\..\src\pvmwin.h"
  7. #else 
  8. #include "pvm3.h"
  9. #endif
  10.  
  11. #include "pvm_consts.h"
  12.  
  13. #ifdef __WATCOMC__
  14. #include "watforstr.h"
  15. void __fortran
  16. PVMFGSIZE (group_str, size)
  17. WatcomFortranStr* group_str;
  18. int *size;
  19. {
  20.    char* group_ptr = group_str->strP;
  21.    int   group_len = group_str->len;
  22. #else
  23. void __stdcall
  24. PVMFGSIZE (group_ptr,group_len, size)
  25. char * group_ptr; int group_len;
  26. int *size;
  27. {
  28. #endif
  29.  
  30.    char tgroup[MAX_GRP_NAME + 1];
  31.  
  32.    /*
  33.     * Copy the group name to make sure there's
  34.     * a NUL at the end.
  35.     */
  36.    if (ftocstr(tgroup, sizeof(tgroup), group_ptr, group_len)){
  37.       *size = PvmBadParam;
  38.       return;
  39.    }
  40.  
  41.    *size = pvm_gsize(tgroup);
  42. }
  43.  
  44.